home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 46 / Amiga Format CD46 (1999-10-20)(Future Publishing)(GB)[!][issue 1999-12].iso / -serious- / wb / locked / install_locked next >
Text File  |  1999-09-06  |  7KB  |  267 lines
  1. ; Skrypt instalacyjny dla programu Locked (1998-1999)
  2. ;
  3. ;    $VER: Locked v0.5 by ZATOR (22.01.1999)
  4. ;
  5. ; 
  6.  
  7.  
  8.  
  9. (set #ver_bgui (/ (getversion "libs:bgui.library") 65536))
  10. (set #ver_iden (/ (getversion "libs:identify.library") 65536))
  11. (set #ver_reqt (/ (getversion "libs:reqtools.library") 65536))
  12. (set #ver_fiid (/ (getversion "libs:FileID.library") 65536))
  13. (set #ver_asl (/ (getversion "libs:asl.library") 65536))
  14. (set #ver_cdpl (/ (getversion "libs:cdplay.library") 65536))
  15.  
  16.  
  17. (set wybr
  18.     (askchoice
  19.         (prompt "Jëzyk/Language")
  20.         (help @askchoice-help)
  21.         (choices "ENGLISH" "POLSKI")
  22.         (default 0)
  23.     )
  24. )
  25.  
  26. (if (= wybr 0)
  27. (
  28. (set #witam "Welcome in program installer to install programe\nLocked\nWith this script you install and configure programe") 
  29. (set #info ("\n Version (installed on your HD) of library:\n\nbgui.library - %ld (NIEZBËDNA)\nreqtools.library - %ld (NIEZBËDNA)\nasl.library - %ld\n FileID.library - %ld\n cdplay.library - %ld\n identify.library - %ld" #ver_bgui #ver_reqt #ver_asl #ver_fiid #ver_cdpl #ver_iden))
  30. (set #info_go "\nI'm installing programe Locked in directory WBSTARTUP\nSYS:WBSTARTUP/")
  31. (set #help_locked "\nScript copying programe Locked to drawer sys:wbstartup\nWith this Locked gonna runing always when you loading System")
  32. (set #info_locked "Copying programe Locked")
  33. (set #info_lang "Programe Locked have built polish language\nif you want you maybe install other language")
  34. (set #info_catalog "Which translation install?")
  35. (set #help_catalog "Mark this position which you want install in your system")
  36. (set #info_doc "Where install documentation?")
  37. (set #help_doc "This is documentation for programe Locked, better install his, because you maybe have problems when you change preferences")
  38. (set #info_pref "\nNOW I'm Ask you for many things to seting preferences\nof programe")
  39. (set #pyt_urz "How many drivers have gonna secure option")
  40. (set #hlp_urz "Enter number of drivers which have gonna secure option")
  41. (set #name_dev1 "Enter name 1-st partition (without ':' !!!)")
  42. (set #name_dev2 "Enter name 2-nd partition (without ':' !!!)")
  43. (set #name_dev3 "Enter name 3 partition (without ':' !!!)")
  44. (set #name_dev4 "Enter name 4 partition (without ':' !!!)")
  45. (set #name_dev5 "Enter name 5 partition (without ':' !!!)")
  46. (set #name_dev6 "Enter name 6 partition (without ':' !!!)")
  47. (set #file_cr "Creating configuration file")
  48. (copyfiles
  49.     (prompt "Kopiuje plik")
  50.     (source "extra/FirstInstallation")
  51.     (dest "ram:")
  52.     (newname "PierwszaInstalacja")
  53.     (help "NIc dodaê... nic ujâê...")
  54. )
  55. ))
  56.  
  57. (if (= wybr 1)
  58. (
  59. (set #witam "Witam w programie instalacyjnym programu\nLocked\nDziëki temu skryptowi zainstalujesz oraz skonfigurujesz program")
  60. (set #info ("\nWersje (zainstalowanych u ciebie) wymaganych bibliotek:\n\nbgui.library - %ld (NIEZBËDNA)\nreqtools.library - %ld (NIEZBËDNA)\nasl.library - %ld\n FileID.library - %ld\n cdplay.library - %ld\n identify.library - %ld" #ver_bgui #ver_reqt #ver_asl #ver_fiid #ver_cdpl #ver_iden))
  61. (set #info_go "\nTeraz zainstaluje program locked w katalogu WBSTARTUP\nSYS:WBSTARTUP/")
  62. (set #help_locked "\nSkrypt skopiuje program Locked do katalogu sys:wbstartup\nDziëki temu Locked bëdzie sië uruchamiaî przy kaûdym wgraniu systemu.")
  63. (set #info_locked "Kopiuje program Locked")
  64. (set #info_lang "Program Locked ma wbudowany w sobie jëzyk POLSKI\njeôli chcesz moûesz zainstalowaê teraz katalogi\ninnych jëzyków")
  65. (set #info_catalog "Które tîumaczenia zainstalowaê?")
  66. (set #help_catalog "Zaznaczasz te wersje tîumaczeï, które chcesz zainstalowaê.")
  67. (set #info_doc "Gdzie zainstalowaê dokumentacje?")
  68. (set #help_doc "Jest to dokumentacja do programu, lepiej jâ zainstaluj bo potem moûesz mieê problemy przy zmienianiu preferencji")
  69. (set #info_pref "\nTeraz zapytam cië o kilka rzeczy aby ustawiê preferencje\nprogramu")
  70. (set #pyt_urz "Ile chcesz mieê zabezpieczonych partycji?")
  71. (set #hlp_urz "Wpisz liczbë urzâdzeï, które majâ mieê moûliwoôê opcje zabezpieczenia przed nagrywaniem.")
  72. (set #name_dev1 "Wpisz nazwe 1 partycji (bez ':' !!!)")
  73. (set #name_dev2 "Wpisz nazwe 2 partycji (bez ':' !!!)")
  74. (set #name_dev3 "Wpisz nazwe 3 partycji (bez ':' !!!)")
  75. (set #name_dev4 "Wpisz nazwe 4 partycji (bez ':' !!!)")
  76. (set #name_dev5 "Wpisz nazwe 5 partycji (bez ':' !!!)")
  77. (set #name_dev6 "Wpisz nazwe 6 partycji (bez ':' !!!)")
  78. (set #file_cr "Tworze plik konfiguracyjny")
  79. (copyfiles
  80.     (prompt "Kopiuje plik")
  81.     (source "extra/PierwszaInstalacja")
  82.     (dest "ram:")
  83.     (help "NIc dodaê... nic ujâê...")
  84. )
  85. ))
  86.  
  87. (set #dev1 "DH0")
  88. (set #dev2 "DH1")
  89. (set #dev3 "DH2")
  90. (set #dev4 "DH3")
  91. (set #dev5 "DH4")
  92. (set #dev6 "DH5")
  93.  
  94. (welcome #witam)
  95.  
  96. (message #info)
  97. (message #info_go)
  98.  
  99. (copyfiles
  100.     (prompt #info_locked)
  101.     (source "Locked")
  102.     (dest "sys:wbstartup")
  103.     (confirm)
  104.     (help #help_locked)
  105. )
  106.  
  107. (set wyb
  108.     (askchoice
  109.         (prompt #info_lang)
  110.         (help @askchoice-help)
  111.         (choices "TAK/YES" "NIE/NO")
  112.         (default 1)
  113.     )
  114. )
  115.  
  116. (if (= wyb 0)
  117. (
  118. (copyfiles
  119.     (prompt #info_catalog)
  120.     (source "catalog")
  121.     (all)
  122.     (dest "LOCALE:catalogs")
  123.     (confirm)
  124.     (help #help_catalog)
  125. )
  126. )   
  127. )
  128.  
  129. (copyfiles
  130.     (prompt #info_doc)
  131.     (source "Locked.doc")
  132.     (dest "sys:tools")
  133.     (confirm)
  134.     (help #help_doc)
  135. )
  136.  
  137. (message #info_pref)
  138.  
  139. (set #urzadzenia
  140.     (asknumber
  141.         (prompt #pyt_urz)
  142.         (help #hlp_urz)
  143.         (range 1 6)
  144.         (default 1)
  145.     )
  146. )
  147.  
  148.  
  149. (if (> #urzadzenia 0)
  150. (
  151. (set #dev1
  152.     (askstring
  153.         (prompt #name_dev1)
  154.         (help @askstring-help)
  155.         (default "DH0")
  156.     )
  157. )
  158. ))
  159.  
  160. (if (> #urzadzenia 1)
  161. (
  162. (set #dev2
  163.     (askstring
  164.         (prompt #name_dev2)
  165.         (help @askstring-help)
  166.         (default "DH1")
  167.     )
  168. )
  169. ))
  170.  
  171.  
  172. (if (> #urzadzenia 2)
  173. (
  174. (set #dev3
  175.     (askstring
  176.         (prompt #name_dev3)
  177.         (help @askstring-help)
  178.         (default "DH2")
  179.     )
  180. )
  181. ))
  182.  
  183. (if (> #urzadzenia 3)
  184. (
  185. (set #dev4
  186.     (askstring
  187.         (prompt #name_dev4)
  188.         (help @askstring-help)
  189.         (default "DH3")
  190.     )
  191. )
  192. ))
  193.  
  194.  
  195. (if (> #urzadzenia 4)
  196. (
  197. (set #dev5
  198.     (askstring
  199.         (prompt #name_dev5)
  200.         (help @askstring-help)
  201.         (default "DH4")
  202.     )
  203. )
  204. ))
  205.  
  206. (if (> #urzadzenia 5)
  207. (
  208. (set #dev6
  209.     (askstring
  210.         (prompt #name_dev6)
  211.         (help @askstring-help)
  212.         (default "DH5")
  213.     )
  214. )
  215. ))
  216.  
  217. (textfile
  218.     (prompt #file_cr)
  219.     (help #file_hl)
  220.     (dest "ENVARC:locked.prefs")
  221.     (append "Locked V0.80 (1998) Prefs.\n")
  222.     (append "50\n50\n0\n")
  223.     (append #dev1)
  224.     (append "\n")
  225.     (append #dev2)
  226.     (append "\n")
  227.     (append #dev3)
  228.     (append "\n")
  229.     (append #dev4)
  230.     (append "\n")
  231.     (append #dev5)
  232.     (append "\n")
  233.     (append #dev6)
  234.     (append "\n")
  235.     (append #urzadzenia)
  236.     (append "\n")
  237.     (append "0\ntopaz.font\n8\n2\natapi.device\n")
  238.     (append "Workbench Screen                                                                #@!-81\n\n")
  239.     (confirm)
  240. )
  241.  
  242. (textfile
  243.     (prompt #file_cr)
  244.     (help #file_hl)
  245.     (dest "ENV:locked.prefs")
  246.     (append "Locked V0.80 (1998) Prefs.\n")
  247.     (append "50\n50\n0\n")
  248.     (append #dev1)
  249.     (append "\n")
  250.     (append #dev2)
  251.     (append "\n")
  252.     (append #dev3)
  253.     (append "\n")
  254.     (append #dev4)
  255.     (append "\n")
  256.     (append #dev5)
  257.     (append "\n")
  258.     (append #dev6)
  259.     (append "\n")
  260.     (append #urzadzenia)
  261.     (append "\n")
  262.     (append "0\ntopaz.font\n8\n2\natapi.device\n")
  263.     (append "Workbench Screen                                                                #@!-81\n\n")
  264.     (confirm)
  265. )
  266. (run "Locked")
  267.